﻿Imports Sy.Data

Public Class ResultItem
    Inherits SqlObject(Of ResultItem)
    Shared Sub New()
        Dim ConfigPath As String = IO.Path.Combine(Sy.Environment.AppPath, "Config", "SEO_Location.Dat")
        Dim DB As Abs_DB = New SQLite(CreateSQLBuilder(Of ResultItem).CreateSQL, ConfigPath)
        DB.Execute(GetCreateSQL())
        AddDB(DB)
    End Sub
#Region "Area"
    <SQLEnumKey(SQLKey.Code)>
    Public Property location_code As Integer
    Public Property location_name As String
    Public Property location_code_parent As String
    Public Property counTry_iso_code As String
    Public Property location_type As String
    Public Property geo_name As String
    Public Property geo_id As String
    Public Property geo_name_CN As String
#End Region
    Public Overrides Function Tostring() As String
        Return $"{geo_name_CN}[{counTry_iso_code}]"
    End Function
End Class
Public Enum SQLKey
    Code
End Enum
